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products which are inherently superior by virtue of their 
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boolean CheckFor!solation(inl centralThought. inl taigetThought) 
{ 

// this function checks if centralThought is related to largetThoughl 
// via any of tnrgelThought's relations (not directly) 

// remove centralThought as a direct relation from targetThought 
RemoveRelation(targetThought. centralThought); 

// create an einpty thought list to keep track of the search 
intList searchlJst = CrealeEmptyList(); 

// starl recursive searches on each of targetThought's direct relations 
int relation = GetFirslRelalion(targetThought); 
boolean found; 
do{ 

found = Search(relation. centralThought, searchList); 
if(found) { 



// centralThought was found, no need to search any further 
break; 



} 

// this loop will end when there are no more relations 
} while(relation = GetNextRelation{targetThought); 

// add centralThought back onto targetThought as a relation 
AddRelation(targetThought, centralThought); 

return found; 




boolear) Searchfsource, desi, searchList) 



if(rinfl(source, searchList)) { 

// source has already been searched 
relurn FALSE; 



// add source to the searchList 
Add(.source, searchList) 

if(soHrc9 ^= dest) { 

// this is the destination, we have found it 
return TRUE; 



// recursive searches on each of sources direct relations 
int relation = GetFirstRelation(source); 
boolean found; 
do ( 

found = Search(relation, dest, searchList); 

if(found) { 



// centralThought was found, no need to search any further 
break; 



// this loop will end when there are no more relations 
) while(relation = GelNextRelation(largelThought); 

retuui found; 
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There are very few applications that are useful to almost everyone. Actually, there 
is curiBntfy only one; the word processor. 






The Brain witi be a universally appealing application. It will be one of the most 
significant new technologies In decades. The first only thought processor. Software 
that does for thoughts what the word processor does for words. 






The Brain approaches the computer as a computer, not as a glorified typewriter, 
calculator, filing cabinet, or day4)ook. Not surprisingly, the basis of most 
producflvity applications are concepts from the pre-computer age. By starting with 
I mundane, non-revolutionary ta^ metaphors, these appteations are all 
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ForgetThought (fNum) 
{ 

// mark all the children of the selected thought 

list, Clear 0 ; 

MarkChildren ( fNum, list ) ; 

// unmark the active thought 

list . RemoveThought (activeThought) ; 

// unmark thoughts with unmarked parents 

INum « list.GetFirstNumO ; 

while (iNum !«0) 

{ 

if (INum !== fNtim) // don*t unmark the selected thought 

pNum = GetFirstThoughtParent <lNum) ; 

while (pNum !« 0) 

( 

if (list. Contains (pNum) FALSE) 
{ 

if (IsThoughtlnLongTermMemory (pNum) FALSE) 
{ 

// unmark all the children of the unmarked parent 
childList. Clear 0 ; 



MarkChildren (pNum, childList) ; 
list .RemoveList (childList) ; 

) 

) 

pNum = GetNextThoughtParent <lNum) ; 

) 

) 

INum = list.GetNextNumO ; 

) 

// now forget all the thoughts left on the list 
INum « list.GetFirstNumO; 
while (INum !- 0) 
{ 

ForgetThought (INum) ; 
INum ^ list.GetNextNumO; 

} 

RememberThought (rNum) 
{ 

// mark' all the children of the selected thought 

list. Clear 0 ; 

MarkChildren (rNum, list); 

// remember all the thoughts on the list 

INum = list.GetFirstNumO; 

while (INum !» 0) 

{ 

RememberThought (INum) ; 
INum = list.GetNextNumO; 

) 

MarkChildren (num, list) 
( 

list .AddThought (num) ; 
cNum - GetFirstChild(num) ; 
while (cNum != 0) 

MarkChildren (cNum, list) ; FIG. 17 

^ cNum « GetNextChild(num) ; 
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Algorithm for drawing the plex with distant thoughts 



Create a list of thoughts to be drawn and their screen locations: 

2. Add the central thought to the list 

3. Add children to the list 

4. Add parents to the list 

5. Add jumps to the list 

6. Add siblings to the list, checking first that they 

are not already on the list 

7. Add distants of children to the list, checking first that they 

are not already on the list 

8. Add distants of parents to the list, checking first that they 

are not already on the list 

9. Add distants of jumps to the list, checking first that they 

are not already on the list 

1 0. Add distants of siblings to the list, checking first that 

they are not already on the list 
Draw the lines that connect each thought: 
1 2. For each item in the list: 

1 3. Get each item in the list: 

1 4. If the two items are related, draw lines 

between them from and to the appropriate 
gates. 

Draw the distant thoughts: 
16. For each item in the list: 

17. If it is a distant thought, draw it 
Draw the other thoughts: 
19. For each item in the list: 

20. If it is not a distant thought, draw it 

Fig. 23 



// the non recursive method for searching thoughts 

// tries to find a route from nSrc to nDest other than a direct relation 

// returns TRUE if found 

boolean Search (int nSrc, int nDest) 

{ 

//create the lists 

ThoughtList posLlst; //list of thoughts that possibly connect 
ThoughtLlst notList; //list of thoughts that do not connect 
//empty the lists 
posList . Initialize ( ) ; 
notList . Initialize ( ) ; 



//add the source to the not list since we cannot go directly 
to the destination, 
notList .Add (nSrc) ; 

//since we cannot go directly to the destination, 

//add all relates except the destination to the possible list 

Thought 3rc(nSrc); 

for (int n = 0;;n++) 

{ 

int nRel = src.GetRelate (n) ; 

if (!nRel) 

{ 

//no more relations, done 
break ; 

} 

if (nRel !« nDest) 
( 

//add. it to the possibly connect list 
posList .Add (nRel) ; 

1 

) 

while (TRUE) 
{ 

//check the first possibility 
int nTest « posList .GetFirst () ; 
if (!nTest) 
{ 

//nothing on the list, done 
break ; 

} 

Thought test (nTest); 

if (test. IsRelated (nDest) ) 

//this one is related to the destination, we're done 
return TRUE; 

} 

// does not connect, add it to the does not connect list 
notList .Add (nTest) ; 

// add all related thoughts except those already checked to 
possible list for 
(int n « 0; ; n++) 
{ 

int nRel ^ test .GetRelate (n) ; 

if (! nRel) 

{ 

//no more relations, done 
break; 

1 

if ( ! notList . Exists (nRel ) ) 

//not checked yet, add to possible list 
posLi3t.Add(rel) ; 

» 

//remove this one from the possible list 
posList . Remove (nTest) ; 

I 

//we've checked everything there is no other way to get from 
nSrc to nDest 
return FALSE; 

Fig. 24 
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